home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / prelude / Integer.p < prev    next >
Text File  |  2000-04-24  |  5KB  |  156 lines
  1. pTempVar <- <primitive 110 31 >
  2. <primitive 112 pTempVar 1  " timesRepeat: " \
  3.   #( #[ 16r50 16r72 16r22 16r20 16rC7 16rF7 16r0B 16r21 16rA5 16rF2 16r22 \
  4.         16r51 16rC0 16rF1 16r72 16rF2 16rF9 16r10 16rF2 16rF5] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " intNegRem: " \
  8.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r12 16r20 16r20 16r50 16rC7 \
  9.         16rF7 16r03 16r5A 16rF8 16r02 16rF2 16r51 16rC2 16r72 16r22 \
  10.         16r21 16rCD 16rF8 16r04 16rF2 16r20 16r0A 16r22 16rF3 16rF5 \
  11.        ] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 3  " rem: " \
  15.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  16.         16r1D 16rF8 16r04 16rF2 16r20 16r0A 16r22 16rF3 16rF5] \
  17.     #(  )) >
  18.  
  19. <primitive 112 pTempVar 4  " radix: " \
  20.   #( #[ 16r20 16r21 16rFA 16r02 16r1A 16rF3 16rF5] \
  21.     #(  )) >
  22.  
  23. <primitive 112 pTempVar 5  " // " \
  24.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  25.         16r13 16rF8 16r04 16rF2 16r20 16r0A 16r22 16rF3 16rF5] \
  26.     #(  )) >
  27.  
  28. <primitive 112 pTempVar 6  " quo: " \
  29.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  30.         16r1C 16rF8 16r04 16rF2 16r20 16r0A 16r22 16rF3 16rF5] \
  31.     #(  )) >
  32.  
  33. <primitive 112 pTempVar 7  " odd " \
  34.   #( #[ 16r20 16r52 16rCD 16r50 16rCA 16rF3 16rF5] \
  35.     #(  )) >
  36.  
  37. <primitive 112 pTempVar 8  " noMask: " \
  38.   #( #[ 16r50 16r20 16r21 16rC5 16rC9 16rF3 16rF5] \
  39.     #(  )) >
  40.  
  41. <primitive 112 pTempVar 9  " lcm: " \
  42.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r0A 16r20 16r21 16rC2 16r20 \
  43.         16r21 16r0B 16r1B 16rCE 16rF8 16r04 16rF2 16r20 16r0A 16r22 \
  44.         16rF3 16rF5] \
  45.     #(  )) >
  46.  
  47. <primitive 112 pTempVar 10  " highBit " \
  48.   #( #[ 16r20 16rFA 16r01 16r22 16rF3 16rF5] \
  49.     #(  )) >
  50.  
  51. <primitive 112 pTempVar 11  " gcd: " \
  52.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  53.         16r14 16rF8 16r04 16rF2 16r20 16r0A 16r22 16rF3 16rF5] \
  54.     #(  )) >
  55.  
  56. <primitive 112 pTempVar 12  " factorial " \
  57.   #( #[ 16r20 16rFA 16r01 16r26 16rF3 16rF5] \
  58.     #(  )) >
  59.  
  60. <primitive 112 pTempVar 13  " even " \
  61.   #( #[ 16r20 16r52 16rCD 16r50 16rC9 16rF3 16rF5] \
  62.     #(  )) >
  63.  
  64. <primitive 112 pTempVar 14  " bitXor: " \
  65.   #( #[ 16r20 16r21 16rFA 16r02 16r18 16rF3 16rF5] \
  66.     #(  )) >
  67.  
  68. <primitive 112 pTempVar 15  " bitShift: " \
  69.   #( #[ 16r20 16r21 16rFA 16r02 16r19 16rF3 16rF5] \
  70.     #(  )) >
  71.  
  72. <primitive 112 pTempVar 16  " bitOr: " \
  73.   #( #[ 16r20 16r21 16rFA 16r02 16r16 16rF3 16rF5] \
  74.     #(  )) >
  75.  
  76. <primitive 112 pTempVar 17  " bitInvert " \
  77.   #( #[ 16r20 16rFA 16r01 16r21 16rF3 16rF5] \
  78.     #(  )) >
  79.  
  80. <primitive 112 pTempVar 18  " bitAt: " \
  81.   #( #[ 16r20 16r21 16rFA 16r02 16r15 16rF3 16rF5] \
  82.     #(  )) >
  83.  
  84. <primitive 112 pTempVar 19  " bitAnd: " \
  85.   #( #[ 16r20 16r21 16rFA 16r02 16r17 16rF3 16rF5] \
  86.     #(  )) >
  87.  
  88. <primitive 112 pTempVar 20  " asString " \
  89.   #( #[ 16r20 16rFA 16r01 16r25 16rF3 16rF5] \
  90.     #(  )) >
  91.  
  92. <primitive 112 pTempVar 21  " asFloat " \
  93.   #( #[ 16r20 16rFA 16r01 16r27 16rF3 16rF5] \
  94.     #(  )) >
  95.  
  96. <primitive 112 pTempVar 22  " asCharacter " \
  97.   #( #[ 16r20 16rFA 16r01 16r24 16rF3 16rF5] \
  98.     #(  )) >
  99.  
  100. <primitive 112 pTempVar 23  " anyMask: " \
  101.   #( #[ 16r50 16r20 16r21 16rFA 16r02 16r17 16rCA 16rF3 16rF5] \
  102.     #(  )) >
  103.  
  104. <primitive 112 pTempVar 24  " allMask: " \
  105.   #( #[ 16r21 16r20 16r21 16rFA 16r02 16r17 16rC9 16rF3 16rF5] \
  106.     #(  )) >
  107.  
  108. <primitive 112 pTempVar 25  " / " \
  109.   #( #[ 16r20 16rAF 16r21 16rBE 16rF3 16rF5] \
  110.     #(  )) >
  111.  
  112. <primitive 112 pTempVar 26  " * " \
  113.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  114.         16r12 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  115.        ] \
  116.     #( #*  )) >
  117.  
  118. <primitive 112 pTempVar 27  " - " \
  119.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  120.         16r0B 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  121.        ] \
  122.     #( #-  )) >
  123.  
  124. <primitive 112 pTempVar 28  " + " \
  125.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  126.         16r0A 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  127.        ] \
  128.     #( #+  )) >
  129.  
  130. <primitive 112 pTempVar 29  " < " \
  131.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  132.         16r0C 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  133.        ] \
  134.     #( #<  )) >
  135.  
  136. <primitive 112 pTempVar 30  " > " \
  137.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  138.         16r0D 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  139.        ] \
  140.     #( #>  )) >
  141.  
  142. <primitive 112 pTempVar 31  " = " \
  143.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  144.         16r10 16rF8 16r05 16rF2 16r20 16r21 16r91 16r00 16rF3 16rF5 \
  145.        ] \
  146.     #( #=  )) >
  147.  
  148. <primitive 98 #Integer \
  149.   <primitive 97 #Integer #Number #AmigaTalk:General/Integer.st \
  150.    #(  ) \
  151.    #( #timesRepeat: #intNegRem: #rem: #radix: #// #quo: #odd #noMask: #lcm: #highBit  \
  152.        #gcd: #factorial #even #bitXor: #bitShift: #bitOr: #bitInvert #bitAt: #bitAnd:  \
  153.        #asString #asFloat #asCharacter #anyMask: #allMask: #/ #* #- #+ #< #> #=  ) \
  154.   pTempVar 3 5 >>
  155.  
  156.